home *** CD-ROM | disk | FTP | other *** search
- global gVRSprite1, gVRSprite2, gNavMovieID, gNavMovieObj, gReturning, gVR.ObjectFilename, gVR.CurrentNodeID, gVR.CurrentHotSpotID
-
- on exitFrame
- CloseNavMovie()
- if the machineType = 256 then
- ClosePanoMovie()
- end if
- set the ink of sprite gVRSprite1 to 0
- set the ink of sprite gVRSprite2 to 0
- updateStage()
- set the ink of sprite gVRSprite1 to 1
- set the ink of sprite gVRSprite2 to 1
- updateStage()
- OpenNavMovie(gVR.ObjectFilename, gVRSprite1, 1)
- cursor(200)
- cursor(-1)
- if the machineType = 256 then
- if objectp(gNavMovieObj) then
- go(the frame + 1)
- exit
- end if
- else
- if gNavMovieID <> EMPTY then
- go(the frame + 1)
- exit
- end if
- end if
- go("Start")
- updateStage()
- alert("Can't open file:" & RETURN & RETURN & QUOTE & gVR.ObjectFilename & QUOTE & RETURN & RETURN & "as a panoramic movie.")
- end
-